This file is intended for one whose
terminal program does not permit
downloading using a file transfer
protocol, such as Xmodem or CompuServe
B protocol.  Only the capability to
capture a text file to a buffer, and
then to SAVE the file to diskette, is
necessary.  The procedure is as
follows:

Type in the BASIC program that follows
these instructions, and SAVE it to
disk.  Then, log onto CIS and work your
way to the library where the file that
you want resides.  REAd the file, as
you are reading this file, but instead
of typing in REA, type REA INT.  The
file in question may be binary, ascii,
or image.  After you enter the filename
in response to the filename prompt,
open your capture buffer BEFORE you
press RETURN.  When you see "Press
<CR> !" at the end of the file, close
your capture buffer.  Off-line, you can
SAVE the file to disk.  Next, LOAD the
BASIC program that you typed in and RUN
it.  Enter the filename of the file
that you captured at the prompt.  Wash
your car, mow the lawn, start a jigsaw
puzzle or whatever.  After what seems
like an eternity, the activity light of
the drive should go out, and the
desired file should b	 listed in the
disk directory as the original filename
followed by a plus sign.  It can, of
course, be renamed by typing in:

OPEN15,8,15,"R0:NEWNAME=OLDNAME"
CLOSE15

The size of the captured file is
limited to 36864 bytes.  If the file is
an IMG (image) file, the six byte
header can be stripped by changing the
0 in line 320 of the BASIC program to
6.  The intel protocol that is used
when you REAd INTel, sends the file in
hexadecimal format, with more error
checking than is done using Xmodem.  If
an error	 s detected by the BASIC
program, the message "DATA ERROR" will
be seen and the operation aborted.  You
will then have to REAd INTel the file
again, possibly at a lower baud rate.
The assumption is made that ascii to
petascii conversion is taking place, as
in normal creation of a text file on
disk.  Make sure that the conversion
(or translation) is not disabled.
The BASIC program:

10 poke56,16:poke55,0:clr:b=4096:c=b
20 r=0:s=1:k=r:z=r:v=r:d=183:e=135:m=10
30 f$="":input"filename";f$
40 iff$=""then30
50 o	 n8,8,8,"0:"+f$
60 poke781,8:sys65478
70 ifz<>kthen120
80 z=r:q=r:y=r
90 sys65508:g=peek(780)
100 ifg<>58andst=rthen90
110 ifstthen290
120 sys65508:h=peek(780)
130 sys65508:l=peek(780)
140 gosub180
150 iffthenprint"data error":goto340
160 ifstthen290
170 goto70
180 x=h:gosub270
190 a=x:x=l:gosub270:p=16*a+x
200 z=z+s:onzgoto230,240,250,260
210 ifz=kthenf=q+pand255:return
220 q=q+p:v=v+s:pokeb,p:b=b+s:return
230 q=q+p:k=p+5:return
240 y=256*p+y:q=q+p:return
250 y=p+y:q=q+p:f=y-v:return
260 q=q+p:f=p:return
	 0 x=x-d:ifx<mthenx=x+e
280 return
290 close8:sys65484
300 open8,8,1,"@0:"+f$+"+"
310 poke781,8:sys65481
320 fori=c+0tob-s:poke780,peek(i)
330 sys65490:next
340 poke56,160:close8:clr
